0 IF A=0 THEN CLR
5 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 REM * COMPUTE DEMO MAKER V1.0 *
20 IF A=0 THEN A=1:LOAD"DEMO.CODE",8,1
30 DIM C$(15),V(9),R(4)
40 FOR X=0 TO 15:READ A$:C$(X)=A$:NEXT
50 FOR X=0 TO 9:READ A:V(X)=A:NEXT
60 FOR X=0 TO 44:READ A:POKE X+32768,A:NEXT
70 R(0)=1:R(1)=2:R(2)=5:R(3)=6:R(4)=7
80 T$="YES":S=1185:K$="A":X=0
90 B$="----------------------------------------"
100 POKE53272,23:POKE53281,0:POKE53280,11
110 PRINT"[147][154]      ** [212]HE [195][207][205][208][213][212][197]! [196]EMO [205]AKER **"
120 PRINT"   [212]ITLE [204]ETTERS  [195]OLOR: [153]"C$(V(0))
130 PRINT"   [211]CROLLING [212]EXT [195]OLOR: [153]"C$(V(1))
140 PRINT"   [212]EXT ON [210]ASTER [195]OLOR: [153]"C$(V(2))
150 PRINT"   [158][205]ID [194]ACKGROUND [195]OLOR: [154]"C$(V(3))
160 PRINT"   [158][204]OW [194]ACKGROUND [195]OLOR: [154]"C$(V(4))
170 PRINT"   [205]AIN [210]ASTER  [208]ART 1: [150]"C$(V(5))" SHADES"
180 PRINT"   [205]AIN [210]ASTER  [208]ART 2: [150]"C$(V(6))" SHADES"
190 PRINT"   [211]MALL [210]ASTER [195]OLORS: [156]"C$(V(7))" SHADES"
200 PRINT"   [205]IDDLE [198]ADER [195]OLORS: [156]"C$(V(8))" SHADES"
210 PRINT"   [159][198]ADER [211]PEED (0 TO 10): [156]"V(9)
220 PRINT"   [158][193]NIMATE [212]ITLE: [153]"T$
230 PRINT"   [197]NTER [212]ITLE [212]EXT"
240 PRINT"   [197]NTER [211]CROLLING [212]EXT"
250 PRINT"   [197]NTER [205]IDDLE [212]EXT"
260 PRINT"   [159][211][193][214][197] [212][200][197] [196][197][205][207]"
270 PRINT"[153]    [208][210][197][211][211] [211][208][193][195][197] [212][207] [208][210][197][214][201][197][215] [212][200][197] [196][197][205][207]"
280 SC=S+X*40:POKE SC,62:POKESC+54272,1
290 GET C$:IFC$="" AND X<14 THEN POKESC,32:X=X+1
300 IFC$="[145]"AND X>0 THENPOKESC,32:X=X-1
310 IF C$ <> "+" THEN 350
320 IF X<=4 THEN IF V(X)<15 THEN V(X)=V(X)+1:GOTO100
330 IF X=9 THEN IF V(X)<10 THEN V(X)=V(X)+1:GOTO100
340 IF X<=8 THEN IF V(X)<7 THEN 480
350 IF C$ <> "-" THEN 390
360 IF X<=4 THEN IF V(X)>0 THEN V(X)=V(X)-1:GOTO100
370 IF X=9 THEN IF V(X)>0 THEN V(X)=V(X)-1:GOTO100
380 IF X<=8 THEN IF V(X)>1 THEN 500
390 IF X=10 AND C$=CHR$(13) THEN 460
400 IF X=11 AND C$=CHR$(13) THEN 770
410 IF X=12 AND C$=CHR$(13) THEN 640
420 IF X=13 AND C$=CHR$(13) THEN 700
430 IF X=14 AND C$=CHR$(13) THEN 1100
440 IF C$=" " THEN POKE 18985,2:GOSUB 940:SYS 18098:GOTO 100
450 GOTO 280
460 IFT$="YES" THEN T$="NO":GOTO100
470 IFT$="NO" THEN T$="YES":GOTO100
480 V(X)=V(X)+1:IF V(X)=3THENV(X)=5
490 GOTO100
500 V(X)=V(X)-1:IF V(X)=4THENV(X)=2
510 GOTO100
520 REM * TEXT INPUT *
530 M=0
540 PRINT" [146]";
550 GET C$:IFC$=""THEN550
560 PRINT"[157] [157]";:IFC$=CHR$(13)THEN RETURN
570 IFC$<>CHR$(20)THEN610
580 IF M=0THEN540
590 M=M-1:PRINT"[157] [157]";:IFM<1THEN530
600 GOTO540
610 IF C$="[133]"THEN RETURN
620 IFM>=LE OR (C$<" "ORC$>"Z") THEN540
630 M=M+1:PRINTC$;:GOTO540
640 REM * SCROLLING TEXT *
650 PRINT CHR$(147)B$""B$"[158][197]NTER THE SCROLL TEXT NOW."
660 PRINT"[208]RESS <[210][197][212][213][210][206]> TO STORE,  <[198]1> TO ABORT";
670 FOR Y=16864 TO 17263:POKE Y-15800,PEEK(Y):NEXT:LE=398:GOSUB 520
680 IF C$<>"[133]"THEN FOR Y=1064 TO 1463:POKE Y+15800,PEEK(Y):POKE Y,42:NEXT
690 GOTO100
700 REM * MIDDLE TEXT *
710 PRINT CHR$(147)B$""B$"[158][197]NTER THE MIDDLE TEXT NOW.  [198]IRST AND
720 [153]"LAST LINES ARE TEXT ON RASTERS."
730 [153]"(null)RESS <(null)VAL(null)(null)(null)(null)> TO STORE,  <ASC1> TO ABORT";
740 [129] Y[178]16384 [164] 16863:[151] Y[171]15320,[194](Y):[130]:LE[178]479:[141] 520
750 [139] C$[179][177]"INPUT"[167] [129] Y[178]1064 [164] 1543:[151] Y[170]15320,[194](Y):[151] Y,42:[130] Y
760 [137]100
770 [143] * TITLE *
780 [153] [199](147)B$""B$"SYSVALNTER THE TITLE LETTERS NOW."
790 [151]1084,45:[151]1124,45
800 [153]"18 (null)ETTERS PER LINE (SPACES INCLUDED)"
810 [153]"(null)O PUNCTUATION IS ALLOWED IN TITLE."
820 [153]"(null)RESS <(null)VAL(null)(null)(null)(null)> AT END OF EACH LINE"
830 [129] Y[178]18341 [164] 18360:P[178]Y[171]17277:V[178][194](Y):[139] V[179][177]32 [167] V[178]V[171]64
840 [151]P,V:[130]
850 [129] Y[178]18361 [164] 18380:P[178]Y[171]17257:V[178][194](Y):[139] V[179][177]32 [167] V[178]V[171]64
860 [151]P,V:[130]
870 [153]"";:LE[178]19:[141]520
880 [153]:LE[178]19:[141]520
890 [129] Y[178]1064 [164] 1083:P[178]Y[170]17277:V[178][194](Y):[139] V[179][177]32 [167] V[178]V[170]64
900 [151]P,V:[151] Y,42:[130]
910 [129] Y[178]1104 [164] 1122:P[178]Y[170]17257:V[178][194](Y):[139] V[179][177]32 [167] V[178]V[170]64
920 [151]P,V:[151] Y,42:[130]
930 [137]100
940 [143] * CUSTOMIZER *
950 [153]"LOAD"
960 AD[178]18333:[151] AD,V(9):[151] AD[170]1,V(2):[151] AD[170]2,V(0):[151] AD[170]3,V(1)
970 [151] AD[170]4,0:[139] T$[178]"YES" [167] [151] AD[170]4,1
980 [151] AD[170]6,V(3):[151] AD[170]7,V(4)
990 [143] * RASTERCOL *
1000 Y[178]32768:[129] T[178]0 [164] 3:[139] R(T)[179][177]V(7) [167] Y[178]Y[170]9:[130]
1010 A[178]18312:[141]1090
1020 Y[178]32768:[129] T[178]0 [164] 3:[139] R(T)[179][177]V(8) [167] Y[178]Y[170]9:[130]
1030 A[178]18321:[141]1090
1040 Y[178]32768:[129] T[178]0 [164] 3:[139] R(T)[179][177]V(5) [167] Y[178]Y[170]9:[130]
1050 A[178]18264:[129] T[178]Y [164] Y[170]7:[129] U[178]0 [164] 2:[151] A,[194](T):A[178]A[170]1:[130] U:[130] T
1060 Y[178]32768:[129] T[178]0 [164] 3:[139] R(T)[179][177]V(6) [167] Y[178]Y[170]9:[130]
1070 A[178]18288:[129] T[178]Y [164] Y[170]7:[129] U[178]0 [164] 2:[151] A,[194](T):A[178]A[170]1:[130] U:[130] T
1080 [142]
1090 [129] T[178]Y [164] Y[170]9:[151] A,[194](T):A[178]A[170]1:[130]:[142]
1100 [143]  * SAVE *
1110 [141] 940:[133]"LOAD(null)HOULD DEMO BOOT ANOTHER FILE? YCMDCMDCMD";A$
1120 [139] A$[178]"N" [167] [151] 18985,2:[137] 1200
1130 [153]"LOAD"B$"SYSVALNTER THE NAME OF FILE TO BOOT"
1140 [153]"((null)YPE '*' AT END OF NAME)":[151]1080,45:LE[178]15:[141]520
1150 [129] Y[178]1064 [164] 1079:A[178]Y[170]17922:V[178][194](Y):[139] V [177] 0 [175] V [179] 27 [167] V[178]V[170]64
1160 [151] A,V:[130]:[153]
1170 [133]"OPENVALNTER (null)(null)(null) ((null)ETURN=PEEKATN(null)RIGHT$LEN)";SY
1180 [139] SY[178]0 [167] [151]18985,1:[137] 1200
1190 [151] 18985,0:H[178][181](SY[173]256):L[178]SY[171]256[172]H:[151] 19036,L:[151] 19037,H
1200 [133]"LOADASCILENAME OF DEMO";F$
1210 [153]"(null)AVING DEMO...";
1220 [159]2,8,2,"0:"[170]F$[170]",P,W"
1230 [152]2, [199](1);[199](8);
1240 [129] J[178]16252 [164] 19064:[152]2,[199]([194](J));
1250 [139] ST [177] 0 [167] [153]" VALRROR DURING SAVE":[152]2:[160]2:[128]
1260 [130]:[160]2:[153]" (null)O VALRRORS":[128]
1270 [131] BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW
1280 [131] ORANGE,BROWN,LT RED,DK GRAY,MED GRAY,LT GREEN,LT BLUE,LT GRAY
1290 [131] 0,1,11,0,5,1,2,6,1,5
1300 [131] 0,11,12,15,1,1,15,12,11
1310 [131] 0,9,2,8,10,10,8,2,9
1320 [131] 0,5,3,13,1,1,13,3,5
1330 [131] 0,6,14,3,1,1,3,14,6
1340 [131] 10,7,13,3,14,3,13,7,10